function FilterNatureCoAuthorsEditors(n2)

ValueFolder='/sps/isc/rneveu/EtudeIRM/Nature/Results/';
ValueFolderTemp='/sps/isc/rneveu/EtudeIRM/Nature/ResultsJournal/';
ValueFolderTemp2='/sps/isc/rneveu/EtudeIRM/Nature/ResultsEditor/';
load('/sps/isc/rneveu/EtudeIRM/Nature/EtudeNature.mat');
VecEditors1Temp(1,:)=[];
FirstNameEditor=VecEditors1Temp{n2,1};
LastNameEditor=VecEditors1Temp{n2,2};
VecA=192:1:198;
VecA=[VecA 65];
Veca=224:1:230;
Veca=[Veca 97];
VecC=[199 67];
Vecc=[231 99];
VecE=200:203;
VecE=[VecE 69];
Vece=232:1:235;
Vece=[Vece 101];
VecI=204:207;
VecI=[VecI 73];
Veci=236:1:239;
Veci=[Veci 105];
Vecn=[241 110];
VecO=210:214;
VecO=[VecO 216 79];
Veco=242:1:246;
Veco=[Veco 248 111];
VecU=217:1:220;
VecU=[VecU 85];
Vecu=249:1:252;
Vecu=[Vecu 117];
VecY=[221 89];
Vecy=[253 121];
Vecs=[223 115];
VecSpecialCharacters=[{VecA} {Veca} {VecC} {Vecc} {VecE} {Vece} {VecI} {Veci} {Vecn} {VecO} {Veco} {VecU} {Vecu} {VecY} {Vecy} {Vecs}];
ValueAffiliationEditor=ExtractAffiliation(VecEditors1Temp{n2,7},VecSpecialCharacters);
load([ValueFolderTemp 'ResultsThirdLevelDistributionOutliers.mat']);
VecDistribution=VecResults;
load([ValueFolderTemp2 'StartEditor' num2str(n2) '.mat']);
ValueCutoff=1.25;
if size(ValueMaxDate1,1)>1&&size(ValueMaxDate2,1)>1
    ValueFile=dir([ValueFolderTemp2 'ResultsCharacteristicsEditor' num2str(n2) '.mat']);
    if size(ValueFile,1)==1
        load([ValueFolderTemp2 'ResultsCharacteristicsEditor' num2str(n2) '.mat']);
        ValueDistributionTemp=find(VecDistribution(:,1)==n2);
        if size(ValueDistributionTemp,1)>0&&VecDistribution(ValueDistributionTemp,2)<=ValueCutoff
%             VecValueYear=[0 1 2 3 4 5 10]; % for results in ResultsFullCoauthors/
            VecValueYear=[2];
            VecResultsCoAuthors=[];
            VecResultsOtherAuthors=[];
            VecResultsNameCoAuthors=[];
            VecResultsNameOtherAuthors=[];
%             nMonthMax=12; % for results in ResultsFullCoauthors/
            nMonthMax=1;
            for n5=1:33
                for n12=1:size(VecValueYear,2)
                    for n42=1:nMonthMax
                        eval(['VecResultsCoAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'm1=[];']);
                        eval(['VecResultsOtherAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'm1=[];']);
                        eval(['VecResultsCoAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'm2=[];']);
                        eval(['VecResultsOtherAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'm2=[];']);
                        eval(['VecResultsNameCoAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'm={};']);
                        eval(['VecResultsNameOtherAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'm={};']);
                        eval(['VecResultsCoAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'm1Filtered=[];']);
                        eval(['VecResultsOtherAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'm1Filtered=[];']);
                        eval(['VecResultsCoAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'm2Filtered=[];']);
                        eval(['VecResultsOtherAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'm2Filtered=[];']);
                        eval(['VecResultsNameCoAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'mFiltered={};']);
                        eval(['VecResultsNameOtherAuthors' num2str(n5) 'j' num2str(n12) 'y' num2str(n42) 'mFiltered={};']);
                    end
                end
            end
            VecArticleType={'Academic Dissertation' 'Adaptive Clinical Trial' 'Clinical Trial' 'Comparative Study' 'Controlled Clinical Trial' 'Equivalence Trial' 'Evaluation Study' 'Journal Article' 'Meta-Analysis' 'Multicenter Study' 'Observational Study' 'Pragmatic Clinical Trial' 'Randomized Controlled Trial' 'Review' 'Statistics' 'Technical Report' 'Systematic Review' 'Twin Study' 'Validation Study'};
            VecArticleType2={'Review' 'Systematic Review'};
            ValueClock=clock;
            disp(['Start of the processing at ' num2str(ValueClock(1,4)) ':' num2str(ValueClock(1,5)) ':' num2str(ValueClock(1,6)) ' for journal ' num2str(n2)]);
%             ValueFile=['FileAnalysisEditorCoAuthors' num2str(n2) '.mat']; % for results in ResultsFullCoAuthors/
            ValueFile=['FileAnalysisEditorCoAuthors' num2str(n2) 'RestrictedYear2Month8.mat'];
            ValueFileTemp=dir([ValueFolderTemp2 ValueFile]);
            VecResults1=zeros(2,4);
            VecResultsBefore1=[];
            VecResultsAfter1=[];
            VecResultsBefore2=[];
            VecResultsAfter2=[];
            VecResultsAllBefore1=[];
            VecResultsAllAfter1=[];
            VecResultsAllBefore2=[];
            VecResultsAllAfter2=[];
            VecValueDateTemp={'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec'};
            if size(ValueFileTemp,1)==0
                n1Temp2=0;
                try
                    ValueFile=['FileAnalysisEditorCoAuthors2Temp' num2str(n2) '.mat'];
                    load([ValueFolderTemp2 ValueFile]);
                    n1Temp2=n1;
                end
                n1Temp2=n1Temp2+1;
                ValueTimeStart=clock();
                ValueTimeTemp=ValueTimeStart;
                VecTimeTemp=[];
                VecTimeTemp2=[0 31*24 24 1 1/60 1/3600];
                for n1=n1Temp2:1062
                    n1
                    eval(sprintf('load([ValueFolder ''ResultsFile%d.mat'']);',n1));
                    for n5=1:33
                        % Loop over the articles of each Nature journal separately
                        eval(sprintf('VecValueTemp=VecResult2Journal%d;',n5));
                        VecResultsEditorAuthors1=zeros(2,2*nMonthMax*size(VecValueYear,2)); % First line=number of articles published by a co author of the editor before his arrival (first column) and after his arrival (second column) repeated 6 times (one for each month of shift of the arrivla date) for each duration considered in VecValueYear, second line=same as first one except that the authors are not co authors of the editor
                        VecResultsEditorAffiliation1=zeros(2,2*nMonthMax*size(VecValueYear,2)); % Same thing as VecResultsAditorAuthors except that it applies to the affiliation instead of the name of the author
                        VecResultsEditorAuthors2=zeros(2,2*nMonthMax*size(VecValueYear,2)); % First line=number of articles published by a co author of the editor before his arrival (first column) and after his arrival (second column), second line=same as first one except that the authors are not co authors of the editor
                        VecResultsEditorAffiliation2=zeros(2,2*nMonthMax*size(VecValueYear,2)); % Same thing as VecResultsAditorAuthors except that it applies to the affiliation instead of the name of the author
                        VecResultsEditorAuthors1Filtered=zeros(2,2*nMonthMax*size(VecValueYear,2)); % First line=number of articles published by a co author of the editor before his arrival (first column) and after his arrival (second column) repeated 6 times (one for each month of shift of the arrivla date) for each duration considered in VecValueYear, second line=same as first one except that the authors are not co authors of the editor
                        VecResultsEditorAuthors2Filtered=zeros(2,2*nMonthMax*size(VecValueYear,2)); % First line=number of articles published by a co author of the editor before his arrival (first column) and after his arrival (second column), second line=same as first one except that the authors are not co authors of the editor
                        for n3=1:size(VecValueTemp,1)
                            ValueTemp=VecValueTemp{n3,1};
                            if size(ValueTemp,2)>1
                                [ValueFirst,ValueLast,ValueAffiliation,ValueORCID,nAuthors]=ExtractAuthor(ValueTemp,0,1);
                                ValueArticleType=ComputeArticleType(VecValueTemp{n3,9},VecArticleType,VecValueTemp{n3,10},VecValueTemp{n3,11});
                                if ValueArticleType>0
                                    if nAuthors>1
                                        ValueArticleType3=1;
                                    else
                                        ValueArticleType3=2;
                                    end
                                else
                                    ValueArticleType3=0;
                                end
                                ValueDate=VecValueTemp{n3,5};
                                [ValueYear,ValueMonth,ValueDay]=ExtractDate(ValueDate);
                                if size(ValueYear,2)>0
                                    if size(ValueMonth,2)>=1
                                        ValueMonthTemp=str2num(ValueMonth);
                                        if size(ValueMonthTemp,2)==0
                                            n61=1;
                                            TestTemp3=0;
                                            while n61<=12&&TestTemp3==0
                                                if strcmpi(ValueMonth,VecValueDateTemp{1,n61})==1
                                                    ValueMonthTemp=n61;
                                                    TestTemp3=1;
                                                end
                                                n61=n61+1;
                                            end
                                        end
                                    else
                                        ValueMonthTemp=NaN;
                                    end
                                    ValueDateArticleTemp=[str2num(ValueYear) ValueMonthTemp NaN];
                                    VecResultsMaxDate1=[];
                                    VecResultsMaxDate2=[];
                                    for n64=1:size(VecValueYear,2)
%                                         for n63=1:nMonthMax % for results in ResultsFullCoauthors/
                                            n63=8;
                                            ValueMaxDate1Temp=ModifyDateEditor(ValueMaxDate1,n63-1,VecValueYear(1,n64));
                                            ValueMaxDate2Temp=ModifyDateEditor(ValueMaxDate2,n63-1,VecValueYear(1,n64));
                                            [ValueResults1,ValueResults2]=checkDateEditor(ValueDateArticleTemp,ValueMaxDate1Temp,ValueMaxDate2Temp);
                                            VecResultsMaxDate1=[VecResultsMaxDate1;ValueResults1 n63*ones(2,1) n64*ones(2,1)];
                                            VecResultsMaxDate2=[VecResultsMaxDate2;ValueResults2 n63*ones(2,1) n64*ones(2,1)];
%                                         end
                                    end
                                    if sum(VecResultsMaxDate1(:,1))+sum(VecResultsMaxDate2(:,1))>=1&&ValueArticleType3==1
                                        % The article is within the date range of the editor
                                        TestTemp=0;
                                        VecResultsArticle=[];
                                        VecResultsAllArticle=[];
                                        ValueAffiliationTemp='';
                                        nAffiliation=0;
                                        ValueEditorTemp6=0;
                                        ValueAuthors61=0; % Co authors of the editor
                                        ValueAuthors62=0; % Others Authors
                                        ValueAuthorsFiltered61=0; % Co authors of the editor
                                        ValueAuthorsFiltered62=0; % Others Authors
                                        ValueAffiliation61=0; % Affiliation of the editor
                                        ValueAffiliation62=0; % Other affiliations
                                        for n4=1:nAuthors
                                            % Extraction of each author of the article
                                            [ValueFirst,ValueLast,ValueAffiliation,ValueORCID,nAuthors2]=ExtractAuthor(ValueTemp,n4,2);
                                            if strcmps(double([ValueLast ' ' ValueFirst]),double([LastNameEditor ' ' FirstNameEditor]),VecSpecialCharacters)<0.5
                                                ValueEditorTemp5=1;
                                            else
                                                ValueEditorTemp5=0;
                                            end
                                            % check if the author is a co author of the editor
                                            ValueResult=checkAuthorsEditorsNature([ValueLast ' ' ValueFirst],VecGroupCoAuthors,VecSpecialCharacters,0);
                                            ValueResultFiltered=checkAuthorsEditorsNature([ValueLast ' ' ValueFirst],VecGroupCoAuthors,VecSpecialCharacters,1);
                                            % Update outputs
                                            if ValueEditorTemp5==1
                                                nYear=1;
                                                nMonth=1;
                                                if ValueResult==1
                                                    % Co Authors of the editor non filtered
                                                    for n65=1:size(VecResultsMaxDate1,1)/2
                                                        ValueResults1=VecResultsMaxDate1((n65-1)*2+1:(n65-1)*2+2,1);
                                                        ValueResults2=VecResultsMaxDate2((n65-1)*2+1:(n65-1)*2+2,1);
                                                        if sum(ValueResults1(:,1))+sum(ValueResults2(:,1))>0
                                                            eval(['VecResultsNameCoAuthors=VecResultsNameCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm;']);
                                                            eval(['VecResultsCoAuthors1=VecResultsCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm1;']);
                                                            eval(['VecResultsCoAuthors2=VecResultsCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm2;']);
                                                            TestTemp4=0;
                                                            n6=1;
                                                            while n6<=size(VecResultsNameCoAuthors,2)&&TestTemp4==0
                                                                if strcmps(double([ValueLast ' ' ValueFirst]),VecResultsNameCoAuthors{1,n6},VecSpecialCharacters)>=0.99
                                                                    TestTemp4=1;
                                                                else
                                                                    n6=n6+1;
                                                                end
                                                            end
                                                            VecResultsCoAuthorsTemp1=zeros(2,1);
                                                            VecResultsCoAuthorsTemp2=zeros(2,1);
                                                            if ValueResults1(1,1)==1
                                                                VecResultsCoAuthorsTemp1(1,1)=1;
                                                            else
                                                                if ValueResults1(2,1)==1
                                                                    VecResultsCoAuthorsTemp1(2,1)=1;
                                                                end
                                                            end
                                                            if ValueResults2(1,1)==1
                                                                VecResultsCoAuthorsTemp2(1,1)=1;
                                                            else
                                                                if ValueResults1(2,1)==1
                                                                    VecResultsCoAuthorsTemp2(2,1)=1;
                                                                end
                                                            end
                                                            if n6<=size(VecResultsCoAuthors1,2)
                                                                VecResultsCoAuthors1(:,n6)=VecResultsCoAuthors1(:,n6)+VecResultsCoAuthorsTemp1;
                                                                VecResultsCoAuthors2(:,n6)=VecResultsCoAuthors2(:,n6)+VecResultsCoAuthorsTemp2;
                                                            else
                                                                VecResultsCoAuthors1(:,n6)=VecResultsCoAuthorsTemp1;
                                                                VecResultsCoAuthors2(:,n6)=VecResultsCoAuthorsTemp2;
                                                                VecResultsNameCoAuthors(1,n6)={double([ValueLast ' ' ValueFirst])};
                                                            end
                                                            eval(['VecResultsCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm1=VecResultsCoAuthors1;']);
                                                            eval(['VecResultsCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm2=VecResultsCoAuthors2;']);
                                                            eval(['VecResultsNameCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm=VecResultsNameCoAuthors;']);
                                                        end
                                                        nMonth=nMonth+1;
                                                        if nMonth>12
                                                            nYear=nYear+1;
                                                            nMonth=1;
                                                        end
                                                    end
                                                else
                                                    % Other authors non filtered
                                                    for n65=1:size(VecResultsMaxDate1,1)/2
                                                        ValueResults1=VecResultsMaxDate1((n65-1)*2+1:(n65-1)*2+2,1);
                                                        ValueResults2=VecResultsMaxDate2((n65-1)*2+1:(n65-1)*2+2,1);
                                                        if sum(ValueResults1(:,1))+sum(ValueResults2(:,1))>0
                                                            eval(['VecResultsNameCoAuthors=VecResultsNameOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm;']);
                                                            eval(['VecResultsCoAuthors1=VecResultsOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm1;']);
                                                            eval(['VecResultsCoAuthors2=VecResultsOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm2;']);
                                                            TestTemp4=0;
                                                            n6=1;
                                                            while n6<=size(VecResultsNameCoAuthors,2)&&TestTemp4==0
                                                                if strcmps(double([ValueLast ' ' ValueFirst]),VecResultsNameCoAuthors{1,n6},VecSpecialCharacters)>=0.99
                                                                    TestTemp4=1;
                                                                else
                                                                    n6=n6+1;
                                                                end
                                                            end
                                                            VecResultsCoAuthorsTemp1=zeros(2,1);
                                                            VecResultsCoAuthorsTemp2=zeros(2,1);
                                                            if ValueResults1(1,1)==1
                                                                VecResultsCoAuthorsTemp1(1,1)=1;
                                                            else
                                                                if ValueResults1(2,1)==1
                                                                    VecResultsCoAuthorsTemp1(2,1)=1;
                                                                end
                                                            end
                                                            if ValueResults2(1,1)==1
                                                                VecResultsCoAuthorsTemp2(1,1)=1;
                                                            else
                                                                if ValueResults1(2,1)==1
                                                                    VecResultsCoAuthorsTemp2(2,1)=1;
                                                                end
                                                            end
                                                            if n6<=size(VecResultsCoAuthors1,2)
                                                                VecResultsCoAuthors1(:,n6)=VecResultsCoAuthors1(:,n6)+VecResultsCoAuthorsTemp1;
                                                                VecResultsCoAuthors2(:,n6)=VecResultsCoAuthors2(:,n6)+VecResultsCoAuthorsTemp2;
                                                            else
                                                                VecResultsCoAuthors1(:,n6)=VecResultsCoAuthorsTemp1;
                                                                VecResultsCoAuthors2(:,n6)=VecResultsCoAuthorsTemp2;
                                                                VecResultsNameCoAuthors(1,n6)={double([ValueLast ' ' ValueFirst])};
                                                            end
                                                            eval(['VecResultsOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm1=VecResultsCoAuthors1;']);
                                                            eval(['VecResultsOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm2=VecResultsCoAuthors2;']);
                                                            eval(['VecResultsNameOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm=VecResultsNameCoAuthors;']);
                                                        end
                                                        nMonth=nMonth+1;
                                                        if nMonth>12
                                                            nYear=nYear+1;
                                                            nMonth=1;
                                                        end
                                                    end
                                                end
                                                nYear=1;
                                                nMonth=1;
                                                if ValueResultFiltered==1
                                                    % Co Authors of the editor filtered
                                                    for n65=1:size(VecResultsMaxDate1,1)/2
                                                        ValueResults1=VecResultsMaxDate1((n65-1)*2+1:(n65-1)*2+2,1);
                                                        ValueResults2=VecResultsMaxDate2((n65-1)*2+1:(n65-1)*2+2,1);
                                                        if sum(ValueResults1(:,1))+sum(ValueResults2(:,1))>0
                                                            eval(['VecResultsNameCoAuthors=VecResultsNameCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'mFiltered;']);
                                                            eval(['VecResultsCoAuthors1=VecResultsCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm1Filtered;']);
                                                            eval(['VecResultsCoAuthors2=VecResultsCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm2Filtered;']);
                                                            TestTemp4=0;
                                                            n6=1;
                                                            while n6<=size(VecResultsNameCoAuthors,2)&&TestTemp4==0
                                                                if strcmps(double([ValueLast ' ' ValueFirst]),VecResultsNameCoAuthors{1,n6},VecSpecialCharacters)>=0.99
                                                                    TestTemp4=1;
                                                                else
                                                                    n6=n6+1;
                                                                end
                                                            end
                                                            VecResultsCoAuthorsTemp1=zeros(2,1);
                                                            VecResultsCoAuthorsTemp2=zeros(2,1);
                                                            if ValueResults1(1,1)==1
                                                                VecResultsCoAuthorsTemp1(1,1)=1;
                                                            else
                                                                if ValueResults1(2,1)==1
                                                                    VecResultsCoAuthorsTemp1(2,1)=1;
                                                                end
                                                            end
                                                            if ValueResults2(1,1)==1
                                                                VecResultsCoAuthorsTemp2(1,1)=1;
                                                            else
                                                                if ValueResults1(2,1)==1
                                                                    VecResultsCoAuthorsTemp2(2,1)=1;
                                                                end
                                                            end
                                                            if n6<=size(VecResultsCoAuthors1,2)
                                                                VecResultsCoAuthors1(:,n6)=VecResultsCoAuthors1(:,n6)+VecResultsCoAuthorsTemp1;
                                                                VecResultsCoAuthors2(:,n6)=VecResultsCoAuthors2(:,n6)+VecResultsCoAuthorsTemp2;
                                                            else
                                                                VecResultsCoAuthors1(:,n6)=VecResultsCoAuthorsTemp1;
                                                                VecResultsCoAuthors2(:,n6)=VecResultsCoAuthorsTemp2;
                                                                VecResultsNameCoAuthors(1,n6)={double([ValueLast ' ' ValueFirst])};
                                                            end
                                                            eval(['VecResultsCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm1Filtered=VecResultsCoAuthors1;']);
                                                            eval(['VecResultsCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm2Filtered=VecResultsCoAuthors2;']);
                                                            eval(['VecResultsNameCoAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'mFiltered=VecResultsNameCoAuthors;']);
                                                        end
                                                        nMonth=nMonth+1;
                                                        if nMonth>12
                                                            nYear=nYear+1;
                                                            nMonth=1;
                                                        end
                                                    end
                                                else
                                                    % Other authors non filtered
                                                    for n65=1:size(VecResultsMaxDate1,1)/2
                                                        ValueResults1=VecResultsMaxDate1((n65-1)*2+1:(n65-1)*2+2,1);
                                                        ValueResults2=VecResultsMaxDate2((n65-1)*2+1:(n65-1)*2+2,1);
                                                        if sum(ValueResults1(:,1))+sum(ValueResults2(:,1))>0
                                                            eval(['VecResultsNameCoAuthors=VecResultsNameOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'mFiltered;']);
                                                            eval(['VecResultsCoAuthors1=VecResultsOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm1Filtered;']);
                                                            eval(['VecResultsCoAuthors2=VecResultsOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm2Filtered;']);
                                                            TestTemp4=0;
                                                            n6=1;
                                                            while n6<=size(VecResultsNameCoAuthors,2)&&TestTemp4==0
                                                                if strcmps(double([ValueLast ' ' ValueFirst]),VecResultsNameCoAuthors{1,n6},VecSpecialCharacters)>=0.99
                                                                    TestTemp4=1;
                                                                else
                                                                    n6=n6+1;
                                                                end
                                                            end
                                                            VecResultsCoAuthorsTemp1=zeros(2,1);
                                                            VecResultsCoAuthorsTemp2=zeros(2,1);
                                                            if ValueResults1(1,1)==1
                                                                VecResultsCoAuthorsTemp1(1,1)=1;
                                                            else
                                                                if ValueResults1(2,1)==1
                                                                    VecResultsCoAuthorsTemp1(2,1)=1;
                                                                end
                                                            end
                                                            if ValueResults2(1,1)==1
                                                                VecResultsCoAuthorsTemp2(1,1)=1;
                                                            else
                                                                if ValueResults1(2,1)==1
                                                                    VecResultsCoAuthorsTemp2(2,1)=1;
                                                                end
                                                            end
                                                            if n6<=size(VecResultsCoAuthors1,2)
                                                                VecResultsCoAuthors1(:,n6)=VecResultsCoAuthors1(:,n6)+VecResultsCoAuthorsTemp1;
                                                                VecResultsCoAuthors2(:,n6)=VecResultsCoAuthors2(:,n6)+VecResultsCoAuthorsTemp2;
                                                            else
                                                                VecResultsCoAuthors1(:,n6)=VecResultsCoAuthorsTemp1;
                                                                VecResultsCoAuthors2(:,n6)=VecResultsCoAuthorsTemp2;
                                                                VecResultsNameCoAuthors(1,n6)={double([ValueLast ' ' ValueFirst])};
                                                            end
                                                            eval(['VecResultsOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm1Filtered=VecResultsCoAuthors1;']);
                                                            eval(['VecResultsOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'm2Filtered=VecResultsCoAuthors2;']);
                                                            eval(['VecResultsNameOtherAuthors' num2str(n5) 'j' num2str(nYear) 'y' num2str(nMonth) 'mFiltered=VecResultsNameCoAuthors;']);
                                                        end
                                                        nMonth=nMonth+1;
                                                        if nMonth>12
                                                            nYear=nYear+1;
                                                            nMonth=1;
                                                        end
                                                    end
                                                end
                                            end
                                        end
                                    end
                                end
                            end
                        end
                    end
                    ValueTimeTemp2=clock();
                    VecTimeTemp=[VecTimeTemp;ValueTimeTemp2-ValueTimeTemp];
                    VecTimeTemp3=VecTimeTemp.*repmat(VecTimeTemp2,size(VecTimeTemp,1),1);
                    VecTimeTemp3=sum(VecTimeTemp3,2);
                    if 23.75-sum((ValueTimeTemp2-ValueTimeStart).*VecTimeTemp2)<=max(VecTimeTemp3)||23.75-sum((ValueTimeTemp2-ValueTimeStart).*VecTimeTemp2)<=1
                        ValueFile=['FileAnalysisEditorCoAuthors2Temp' num2str(n2) '.mat'];
                        save([ValueFolderTemp2 ValueFile]);
                        return
                    end
                    if mod(n1,20)==0
                        ValueFile=['FileAnalysisEditorCoAuthors2Temp' num2str(n2) '.mat'];
                        save([ValueFolderTemp2 ValueFile]);
                    end
                    ValueTimeTemp=clock();
                end
%                 ValueFile=['FileAnalysisEditorCoAuthors' num2str(n2) '.mat']; % for results in ResultsFullCoauthors/
                ValueFile=['FileAnalysisEditorCoAuthors' num2str(n2) 'RestrictedYear2Month8.mat'];
                VecResults1=1;
                ValueTemp='save([ValueFolderTemp2 ValueFile]';
                for n65=1:33
                    for n1=1:size(VecValueYear,2)
                        for n3=1:nMonthMax
                            ValueTemp=[ValueTemp ',''VecResultsCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm1'',''VecResultsCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm2'',''VecResultsCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm1Filtered'',''VecResultsCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm2Filtered'',''VecResultsOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm1'',''VecResultsOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm2'',''VecResultsOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm1Filtered'',''VecResultsOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm2Filtered'',''VecResultsNameCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm'',''VecResultsNameOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'm'',''VecResultsNameCoAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'mFiltered'',''VecResultsNameOtherAuthors' num2str(n65) 'j' num2str(n1) 'y' num2str(n3) 'mFiltered'''];
                        end
                    end
                end
                ValueTemp=[ValueTemp ',''ValueMaxDate1'',''ValueMaxDate2'',''VecGroupCoAuthors'',''VecResults1'');'];
                eval(ValueTemp);
            end
            ValueClock=clock;
            disp(['End of the processing at ' num2str(ValueClock(1,4)) ':' num2str(ValueClock(1,5)) ':' num2str(ValueClock(1,6)) ' for journal ' num2str(n2)]);
        else
            VecResults1=0;
%             ValueFile=['FileAnalysisEditorCoAuthors' num2str(n2) '.mat']; % for results in ResultsFullCoAuthors/
            ValueFile=['FileAnalysisEditorCoAuthors' num2str(n2) 'RestrictedYear2Month8.mat'];
            save([ValueFolderTemp2 ValueFile],'VecResults1');
        end
    end
else
    VecResults1=0;
%     ValueFile=['FileAnalysisEditorCoAuthors' num2str(n2) '.mat']; % for results in ResultsFullCoAuthors/
    ValueFile=['FileAnalysisEditorCoAuthors' num2str(n2) 'RestrictedYear2Month8.mat'];
    save([ValueFolderTemp2 ValueFile],'VecResults1');
end
    
    